generatePReducersList <- function(){
	
	outList <- list()
	outListCnt <-1
#generate PCA / kPCA dimChoosers
	cdim <- new("constDimChooser",1,1)
	
	
	outList[[outListCnt]] <- new("PCAReducer",cdim)
	outListCnt <- outListCnt+1
	outList[[outListCnt]] <- new("kPCAReducer",cdim)
	outListCnt <- outListCnt+1
##generate MDS
	
	
	outList[[outListCnt]] <- new("MDSReducer",cdim)
	outListCnt <- outListCnt+1
##generate LLE reducer
	
	outList[[outListCnt]] <- new("LLEReducer",cdim)
	outListCnt <- outListCnt+1
##generate Entropy
# 	outList[[outListCnt]] <-new("EntropySelectionReducer",cdim)
# 	outListCnt <- outListCnt+1
	
	return(outList)
}

generatePReducersListComp <- function(){
	
	outList <- list()
	outListCnt <-1
#generate PCA / kPCA dimChoosers
	cdim <- new("constDimChooser",2,2)

	

	outList[[outListCnt]] <- new("ReduceListComputer",new("PCAReducer",cdim))
	outListCnt <- outListCnt+1
	
	outList[[outListCnt]] <- new("ReduceListComputer",new("kPCAReducer",cdim))
	outListCnt <- outListCnt+1
	
#generate MDS
	
	#scree <- new("ScreeDimChooser",2,2)
	outList[[outListCnt]] <- new("ReduceListComputer",new("MDSReducer",cdim))
	outListCnt <- outListCnt+1
#generate LLE reducer
	#r2dc <-new("R2DimChooser",2,2)
	outList[[outListCnt]] <-new("ReduceListComputer", new("LLEReducer",cdim))
	outListCnt <- outListCnt+1
	
#generate Entropy
# 	outList[[outListCnt]] <-new("ReduceListComputer",new("EntropySelectionReducer",cdim))
# 	outListCnt <- outListCnt+1
	
	return(outList)
}